home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir43
/
sac.zip
/
FOXPRO.ZIP
/
SACPR4.FXP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-08-27
|
11KB
|
217 lines
[\<1] - 80 Column Lunar Object Report
[\<2] - 132 Column Lunar Object Report
[\<3] - Word for Windows (Lunar Object Data File)
[\<4] - 80 Column Lunar Object Log Report
[\<Q] - Quit to report menu
DEACTIVATE POPUP
SACPR4
Print
cPRNf
WINDOW
NFORM_SCR
DDATE_1
DDATE_2
EXCNOTES
DEXNINDEX
NORDER
NPR_SS
DEXYESNO
CPR_GIF
CPR_PRN
OPTION
CFILE
CPR_WFW
PRINT
Ascending
Descending8
SET ORDER TO nINDEX &cORDER
INDEX ON UPPER(CLUBS)+UPPER(NAME) TO
FOR CLUBS <> SPACE(10)
.AND.
mNAME$UPPER(NAME)
.AND.
mSKY_TEL$UPPER(SKY_TEL)
.AND.
TYPE=mTYPE
.AND.
LON-nFAC<=mLON.AND.mLON<=LON+nFAC
.AND.
EW=mEW
.AND.
LAT-nFAC<=mLAT.AND.mLAT<=LAT+nFAC
.AND.
NS=mNS
.AND.
mCLUBS$UPPER(CLUBS)
.AND.
mNOTES$UPPER(NOTES)
SET FILTER TO &cD
SET FILTER TO &cD
Press [ESC] to return to main menu...
cLUN_INDEXf
CORDER
NORDER
CLUN_INDEXNINDEX
FNFILE
DEXPLSWAIT
FNTALK
_INDEXNAME
DEXMNAME
SKY_TEL
MSKY_TEL
XTYPE
MTYPE
CLUBS
MCLUBS
CNOTES
MNOTES
LUNLOG
PRINT1
PRINT2
PRINT3
PRINT4
CDATAPATH
NFORM_NDX
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column Lunar Object Report
Date is
Lunar Object Filter is
?? &cPR_BOFF
Name:
Sky & Telescope #:
Type of Object:
M->TYPE
Longitude : F
99.9999c
Latitude : F
99.9999c
Clubs:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
EXNRPT_ROW
NRPT_MAX
EXCLUN_NAME
SKY_TEL
FLD_DES
CLUBS
T_ROW
NOTES
CGIFPATH
CPR_GIF
PRINT_GIF
THERM
?? &cPR_DEF
bESC =.T.
?? &cPR_BON
Page F
132 Column Lunar Object Report
Date is
Lunar Object Filter is
Name Sky & Tel # Type Longitude Latitude Clubs
----------------- ----------- ----- ---------- ---------- ----------
?? &cPR_BOFF
Notes:
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
EXNRPT_ROW
NRPT_MAX
EXCLUN_NAME
SKY_TEL
CLUBS
T_ROW
NOTES
THERM
SKY_TEL
LONGITUDE
LATITUDE
NOTES
CLUBS
bESC =.T.
Number of Printed Records = F
CFILE
NCOUNT
EXNAME
SKY_TEL
XTYPE
N_NAME
NOTES
NNOTES
XCLUBS
THERM
?? &cPR_DEF
bESC =.T.
?? &cPR_DEF
?? &cPR_BON
Page F
80 Column Lunar Object Log
Date is
Lunar Object Filter is
?? &cPR_BOFF
Name:
Sky & Telescope #:
Type of Object:
M->TYPE
Longitude : F
99.9999c
Latitude : F
99.9999c
Clubs:
Log Date: F
Log Time:
Log Date: F
Log Time:
Notes:
cPRNf
* * * Report Interrupted by User * * *
?? &cPR_DEF
Number of Printed Records = F
CFILE
NCOUNT
NPAGE
NPR_MAX
EXNRPT_ROW
NRPT_MAX
EXCNAME
CSKY_TEL
SKY_TEL
LUNLOG
XCLUN_NAME
FLD_DES
CLUBS
LOG_DATE
LOG_TIME
T_ROW
NOTES
CGIFPATH
CPR_GIF
PRINT_GIF
THERM
PRINT
PRINT1
PRINT2
PRINT3
PRINT4
D:\SKY\SAC\
SACPR4.FXP
D:\SKY\SAC\SACPR4.PRG